home *** CD-ROM | disk | FTP | other *** search
/ United Public Domain Gold 2 / United Public Domain Gold 2.iso / utilities / pu426.dms / pu426.adf / BBINSTALL < prev    next >
Text File  |  1992-06-07  |  2KB  |  87 lines
  1. colour=1
  2. yyval=12
  3. skipdel=0
  4.  
  5. cpytitl:dc.b "Lockpick Fast Copy Request",0
  6. cpyques:dc.b "Do you need a copy of the original?",0
  7.  
  8. docopy=simplereq(cpytitl,cpyques)
  9. cmp docopy,1,0,drivenum=fcopy(1)
  10. cmp drivenum,0,-1,goto byebye
  11.  
  12. pnf:    dc.b "Protection not found!",0
  13. pnf2:    dc.b "*** PARAMETER FAILED! ***",0
  14. worktxt:dc.b "Working, please stand by...",0
  15.  
  16. prof:    dc.b "*** Parameter Successful! ***",0
  17. remdsk:    dc.b "Remove disk from DF0: then click in this window...",0
  18.  
  19. insdsk:    dc.b "Insert BACKUP of",0
  20. insdsk2:dc.b " in DF0: then click in this window...",0
  21.  
  22.     dc.w 0
  23.  
  24. * Open Window and print intro text...
  25. start:    validate(drivenum,1)
  26.     cmp ^winname,"con:",0,winname=winname+18
  27.     pokel(wtitle,winname)
  28.     gosub openwin
  29.     cmp docopy,1,0,goto main
  30.  
  31.     gosub remm
  32.  
  33.     txtptr=insdsk
  34.     gosub print3d
  35.     colour=3
  36.     txtptr=dname
  37.     gosub print3d
  38.     colour=1
  39.     txtptr=insdsk2
  40.     gosub print3d
  41.  
  42.     gosub waitsgn
  43.     cmp class,$200000,2,goto chkclow
  44.     cmp code,$1b,0,goto remprta
  45. chkclow:cmp class,$200,0,goto remprta
  46.     skipdel=1
  47.  
  48. main:    txtptr=worktxt
  49.     gosub print3d
  50.  
  51.     cmp skipdel,0,2,goto begit
  52.     delay(100)
  53.  
  54. begit:    blklen=winname-xcopy&$fffffe00
  55.     xboot=allocmem(blklen,2)
  56.     memmove(xboot,xcopy,blklen)
  57.     ret=trackdisk(drivenum,3,0,xboot,blklen)
  58.     ret=trackdisk(drivenum,4,0,0,0)
  59.     freemem(xboot,blklen)
  60.  
  61. priins6:txtptr=prof
  62.     gosub print3d
  63.     goto remprt
  64.     
  65. keyout:    gosub remm
  66.     gosub waitsgn
  67.     cmp mess,0,0,goto keyout
  68.     gosub closwin
  69. byebye:    validate(drivenum,0)
  70.     end
  71.  
  72. errpnf:    txtptr=pnf
  73.     gosub print3d
  74.     goto prii5a
  75.  
  76. remprt:    delay(150)
  77. remprta:yyval=yyval+10
  78.     txtptr=remdsk
  79.     gosub print3d
  80.     goto keyout
  81.  
  82. prii5a:    txtptr=pnf2
  83.     gosub print3d
  84.     goto remprt
  85.  
  86. #i "Params:WINHAND"
  87.